lisp/gnus/sieve.el (sieve-setup-buffer): Fix default port value in sieve buffer setup

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index f0b23832c64f037df3df59ad4d65fadb51c9a281..d475a2591135fa415fd3096ff23caa64d5717057 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,8 @@
+2013-05-24  Julien Danjou  <julien@danjou.info>
+
+       * sieve.el (sieve-setup-buffer): Fix default port value in sieve buffer
+       setup.
+
 2013-05-23  Glenn Morris  <rgm@gnu.org>
 
        * gnus-util.el (rmail-swap-buffers-maybe)

diff --git a/lisp/gnus/sieve.el b/lisp/gnus/sieve.el
index 71a4a7905a86be0c1ec945b00857b167a97c947e..0e46cb663610bfb5bf45dce427d5f86fb1ce4555 100644 (file)
--- a/lisp/gnus/sieve.el
+++ b/lisp/gnus/sieve.el
@@ -257,7 +257,7 @@ Used to bracket operations which move point in the sieve-buffer."
   (erase-buffer)
   (buffer-disable-undo)
   (insert "\
-Server  : " server ":" (or port "2000") "
+Server  : " server ":" (or port sieve-manage-default-port) "
 
 ")
   (set (make-local-variable 'sieve-buffer-header-end)